home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
dspice0s
/
second.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-21
|
664b
|
26 lines
/* second.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/*< subroutine second(t1) >*/
/* Subroutine */ int second_(t1)
doublereal *t1;
{
static integer ibuff[4];
extern /* Subroutine */ int times_();
/*< implicit double precision (a-h,o-z) >*/
/*< dimension ibuff(4) >*/
/*< call times (ibuff) >*/
times_(ibuff);
/*< t1=dble (ibuff(1))/60.0d0 >*/
*t1 = (doublereal) ibuff[0] / 60.;
/*< return >*/
return 0;
/*< end >*/
} /* second_ */